﻿Public Class frmUsuarioCajero
    Private Sub btnCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCerrar.Click
        Me.Close()
    End Sub

    Private Sub btnListar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnListar.Click
        Refrescar()
    End Sub

    Sub Refrescar()
        Dim UsuariosBS As Banco.BS.Usuarios
        UsuariosBS = New Banco.BS.Usuarios
        Me.dgLista.DataSource = UsuariosBS.Listar()
    End Sub

    Sub Activos()
        Dim usuariosBS As Banco.BS.Usuarios
        usuariosBS = New Banco.BS.Usuarios
        Me.dgLista.DataSource = usuariosBS.Activos()
    End Sub

    Private Sub btnActivos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnActivos.Click
        Activos()
    End Sub

    Sub Inactivos()
        Dim usuariosBS As Banco.BS.Usuarios
        usuariosBS = New Banco.BS.Usuarios
        Me.dgLista.DataSource = usuariosBS.Inactivos()
    End Sub

    Private Sub btnInactivos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInactivos.Click
        Inactivos()
    End Sub

    Private Sub btnIdentificacion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIdentificacion.Click
        Dim frmFiltrar As New MantenimientoIdentificacion
        Dim mantenimientoBasicoBS As New Banco.BS.Usuarios
        Dim mantenimientoBasicoBE As New Banco.BE.Usuarios


        If frmFiltrar.ShowDialog() = Windows.Forms.DialogResult.OK Then


            mantenimientoBasicoBE.Identificacion = frmFiltrar.Identificacion
            Me.dgLista.DataSource = Nothing
            Me.dgLista.DataSource = mantenimientoBasicoBS.Filtrar(mantenimientoBasicoBE)

        End If
    End Sub

    Private Sub btnNombre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNombre.Click
        Dim frmFiltrar As New MantenimientoNombre
        Dim mantenimientoBasicoBS As New Banco.BS.Usuarios
        Dim mantenimientoBasicoBE As New Banco.BE.Usuarios


        If frmFiltrar.ShowDialog() = Windows.Forms.DialogResult.OK Then


            mantenimientoBasicoBE.NombreCompleto = frmFiltrar.Nombre
            Me.dgLista.DataSource = Nothing
            Me.dgLista.DataSource = mantenimientoBasicoBS.FiltrarNombre(mantenimientoBasicoBE)

        End If
    End Sub


    'Private Sub frmUsuarioCajero_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '    Refrescar()
    'End Sub
End Class